home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENU12.BC < prev    next >
Text File  |  1991-01-26  |  15KB  |  865 lines
  1. let %!z = %1.dsp
  2. read_file %!x %!z
  3. let %!j = %!x
  4. :begin
  5. echo \\27[0m\\27[44;37m
  6. cls
  7. read_file %!x
  8. let %!a = %!x
  9. read_file %!x
  10. let %!b = %!x
  11. read_file %!x
  12. let %!c = %!x
  13. read_file %!x
  14. let %!e = %!x
  15. read_file %!x
  16. let %!f = %!x
  17. read_file %!x
  18. let %!g = %!x
  19. read_file %!x
  20. let %!i = %!x
  21. read_file %!x
  22. let %!k = %!x
  23. read_file %!x
  24. let %!l = %!x
  25. read_file %!x
  26. let %!o = %!x
  27. read_file %!x
  28. let %!r = %!x
  29. read_file %!x
  30. let %!s = %!x
  31. gosub m_display
  32. if %RC% == 1 goto la2
  33. if %RC% == 2 goto ra1
  34. if %RC% == 3 goto la4
  35. if %RC% == 4 goto ra3
  36. if %RC% == 5 goto la6
  37. if %RC% == 6 goto ra5
  38. if %RC% == 7 goto la8
  39. if %RC% == 8 goto ra7
  40. if %RC% == 9 goto la10
  41. if %RC% == 10 goto ra9
  42. if %RC% == 11 goto la12
  43. if %RC% == 12 goto ra11
  44. goto start
  45. :m_display
  46. cls
  47. locate 1 2
  48. echonolf La Menu System v1.0
  49. lmdt
  50. gosub time
  51. locate 2 4
  52. echo By Bill Mezian
  53. locate 3 1
  54. echonolf ╞═══════════════════════════════════════
  55. echo ═══════════════════════════════════════╡
  56. let %!n = %!j
  57. string_length %!n
  58. sub %!n 80
  59. abs %!n
  60. div %!n 2
  61. locate 5 %!n
  62. echo %!j
  63. locate 8 11
  64. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  65. locate 8 45
  66. echo \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  67. locate 10 11
  68. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  69. locate 10 45
  70. echo \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  71. locate 12 11
  72. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  73. locate 12 45
  74. echo \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  75. locate 14 11
  76. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  77. locate 14 45
  78. echo \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  79. locate 16 11
  80. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  81. locate 16 45
  82. echo \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  83. locate 18 11
  84. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  85. locate 18 45
  86. echo \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  87. locate 21 12
  88. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  89. echo \\27[46;30mHighlight Selection\\27[44;37m and Press Enter
  90. locate 24 25
  91. echonolf \\27[46;30m[ESC]\\27[44;37m To Return To The Menu
  92. return
  93. :start
  94. locate 8 11
  95. echonolf \\27[46;30m══* %!a\\27[44;37m
  96. locate 8 14
  97. getkey
  98. error_level %!q
  99. gosub 1_test
  100. goto start
  101. :ua1
  102. gosub time
  103. locate 8 11
  104. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  105. locate 18 45
  106. echo \\27[46;30m══* %!s\\27[44;37m
  107. locate 18 48
  108. getkey
  109. error_level %!q
  110. gosub 12_test
  111. goto ua1
  112. :da1
  113. gosub time
  114. locate 8 11
  115. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  116. locate 10 11
  117. echonolf \\27[46;30m══* %!c\\27[44;37m
  118. locate 10 14
  119. getkey
  120. error_level %!q
  121. gosub 3_test
  122. goto da1
  123. :ra1
  124. gosub time
  125. locate 8 11
  126. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  127. locate 8 45
  128. echo \\27[46;30m══* %!b\\27[44;37m
  129. locate 8 48
  130. getkey
  131. error_level %!q
  132. gosub 2_test
  133. goto ra1
  134. :la1
  135. gosub time
  136. locate 8 11
  137. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  138. locate 18 11
  139. echonolf \\27[46;30m══* %!r\\27[44;37m
  140. locate 18 14
  141. getkey
  142. error_level %!q
  143. gosub 11_test
  144. goto la1
  145. :ua2
  146. gosub time
  147. locate 8 45
  148. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  149. locate 18 11
  150. echonolf \\27[46;30m══* %!r\\27[44;37m
  151. locate 18 14
  152. getkey
  153. error_level %!q
  154. gosub 11_test
  155. goto ua2
  156. :da2
  157. gosub time
  158. locate 8 45
  159. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  160. locate 10 45
  161. echonolf \\27[46;30m══* %!e\\27[44;37m
  162. locate 10 48
  163. getkey
  164. error_level %!q
  165. gosub 4_test
  166. goto da2
  167. :ra2
  168. gosub time
  169. locate 8 45
  170. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  171. locate 10 11
  172. echonolf \\27[46;30m══* %!c\\27[44;37m
  173. locate 10 14
  174. getkey
  175. error_level %!q
  176. gosub 3_test
  177. goto ra2
  178. :la2
  179. gosub time
  180. locate 8 45
  181. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  182. locate 8 11
  183. echonolf \\27[46;30m══* %!a\\27[44;37m
  184. locate 8 14
  185. getkey
  186. error_level %!q
  187. gosub 1_test
  188. goto la2
  189. :ua3
  190. gosub time
  191. locate 10 11
  192. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  193. locate 8 11
  194. echonolf \\27[46;30m══* %!a\\27[44;37m
  195. locate 8 14
  196. getkey
  197. error_level %!q
  198. gosub 1_test
  199. goto ua3
  200. :da3
  201. gosub time
  202. locate 10 11
  203. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  204. locate 12 11
  205. echonolf \\27[46;30m══* %!f\\27[44;37m
  206. locate 12 14
  207. getkey
  208. error_level %!q
  209. gosub 5_test
  210. goto da3
  211. :ra3
  212. gosub time
  213. locate 10 11
  214. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  215. locate 10 45
  216. echo \\27[46;30m══* %!e\\27[44;37m
  217. locate 10 48
  218. getkey
  219. error_level %!q
  220. gosub 4_test
  221. goto ra3
  222. :la3
  223. gosub time
  224. locate 10 11
  225. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  226. locate 8 45
  227. echonolf \\27[46;30m══* %!b\\27[44;37m
  228. locate 8 48
  229. getkey
  230. error_level %!q
  231. gosub 2_test
  232. goto la3
  233. :ua4
  234. gosub time
  235. locate 10 45
  236. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  237. locate 8 45
  238. echo \\27[46;30m══* %!b\\27[44;37m
  239. locate 8 48
  240. getkey
  241. error_level %!q
  242. gosub 2_test
  243. goto ua4
  244. :da4
  245. gosub time
  246. locate 10 45
  247. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  248. locate 12 45
  249. echonolf \\27[46;30m══* %!g\\27[44;37m
  250. locate 12 48
  251. getkey
  252. error_level %!q
  253. gosub 6_test
  254. goto da4
  255. :ra4
  256. gosub time
  257. locate 10 45
  258. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  259. locate 12 11
  260. echonolf \\27[46;30m══* %!f\\27[44;37m
  261. locate 12 14
  262. getkey
  263. error_level %!q
  264. gosub 5_test
  265. goto ra4
  266. :la4
  267. gosub time
  268. locate 10 45
  269. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  270. locate 10 11
  271. echonolf \\27[46;30m══* %!c\\27[44;37m
  272. locate 10 14
  273. getkey
  274. error_level %!q
  275. gosub 3_test
  276. goto la4
  277. :ua5
  278. gosub time
  279. locate 12 11
  280. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  281. locate 10 11
  282. echonolf \\27[46;30m══* %!c\\27[44;37m
  283. locate 10 14
  284. getkey
  285. error_level %!q
  286. gosub 3_test
  287. goto ua5
  288. :da5
  289. gosub time
  290. locate 12 11
  291. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  292. locate 14 11
  293. echonolf \\27[46;30m══* %!i\\27[44;37m
  294. locate 14 14
  295. getkey
  296. error_level %!q
  297. gosub 7_test
  298. goto da5
  299. :ra5
  300. gosub time
  301. locate 12 11
  302. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  303. locate 12 45
  304. echonolf \\27[46;30m══* %!g\\27[44;37m
  305. locate 12 48
  306. getkey
  307. error_level %!q
  308. gosub 6_test
  309. goto ra5
  310. :la5
  311. gosub time
  312. locate 12 11
  313. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  314. locate 10 45
  315. echonolf \\27[46;30m══* %!e\\27[44;37m
  316. locate 10 48
  317. getkey
  318. error_level %!q
  319. gosub 4_test
  320. goto la5
  321. :ua6
  322. gosub time
  323. locate 12 45
  324. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  325. locate 10 45
  326. echonolf \\27[46;30m══* %!e\\27[44;37m
  327. locate 10 48
  328. getkey
  329. error_level %!q
  330. gosub 4_test
  331. goto ua6
  332. :da6
  333. gosub time
  334. locate 12 45
  335. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  336. locate 14 45
  337. echonolf \\27[46;30m══* %!k\\27[44;37m
  338. locate 14 48
  339. getkey
  340. error_level %!q
  341. gosub 8_test
  342. goto da6
  343. :ra6
  344. gosub time
  345. locate 12 45
  346. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  347. locate 14 11
  348. echonolf \\27[46;30m══* %!i\\27[44;37m
  349. locate 14 14
  350. getkey
  351. error_level %!q
  352. gosub 7_test
  353. goto ra6
  354. :la6
  355. gosub time
  356. locate 12 45
  357. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  358. locate 12 11
  359. echonolf \\27[46;30m══* %!f\\27[44;37m
  360. locate 12 14
  361. getkey
  362. error_level %!q
  363. gosub 5_test
  364. goto la6
  365. :ua7
  366. gosub time
  367. locate 14 11
  368. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  369. locate 12 11
  370. echonolf \\27[46;30m══* %!f\\27[44;37m
  371. locate 12 14
  372. getkey
  373. error_level %!q
  374. gosub 5_test
  375. goto ua7
  376. :da7
  377. gosub time
  378. locate 14 11
  379. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  380. locate 16 11
  381. echonolf \\27[46;30m══* %!l\\27[44;37m
  382. locate 16 14
  383. getkey
  384. error_level %!q
  385. gosub 9_test
  386. goto da7
  387. :ra7
  388. gosub time
  389. locate 14 11
  390. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  391. locate 14 45
  392. echonolf \\27[46;30m══* %!k\\27[44;37m
  393. locate 14 48
  394. getkey
  395. error_level %!q
  396. gosub 8_test
  397. goto ra7
  398. :la7
  399. gosub time
  400. locate 14 11
  401. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  402. locate 12 45
  403. echonolf \\27[46;30m══* %!g\\27[44;37m
  404. locate 12 48
  405. getkey
  406. error_level %!q
  407. gosub 6_test
  408. goto la7
  409. :ua8
  410. gosub time
  411. locate 14 45
  412. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  413. locate 12 45
  414. echonolf \\27[46;30m══* %!g\\27[44;37m
  415. locate 12 48
  416. getkey
  417. error_level %!q
  418. gosub 6_test
  419. goto ua8
  420. :da8
  421. gosub time
  422. locate 14 45
  423. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  424. locate 16 45
  425. echonolf \\27[46;30m══* %!o\\27[44;37m
  426. locate 16 48
  427. getkey
  428. error_level %!q
  429. gosub 10_test
  430. goto da8
  431. :ra8
  432. gosub time
  433. locate 14 45
  434. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  435. locate 16 11
  436. echonolf \\27[46;30m══* %!l\\27[44;37m
  437. locate 16 14
  438. getkey
  439. error_level %!q
  440. gosub 9_test
  441. goto ra8
  442. :la8
  443. gosub time
  444. locate 14 45
  445. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  446. locate 14 11
  447. echonolf \\27[46;30m══* %!i\\27[44;37m
  448. locate 14 14
  449. getkey
  450. error_level %!q
  451. gosub 7_test
  452. goto la8
  453. :ua9
  454. gosub time
  455. locate 16 11
  456. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  457. locate 14 11
  458. echonolf \\27[46;30m══* %!i\\27[44;37m
  459. locate 14 14
  460. getkey
  461. error_level %!q
  462. gosub 7_test
  463. goto ua9
  464. :da9
  465. gosub time
  466. locate 16 11
  467. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  468. locate 18 11
  469. echonolf \\27[46;30m══* %!r\\27[44;37m
  470. locate 18 14
  471. getkey
  472. error_level %!q
  473. gosub 11_test
  474. goto da9
  475. :ra9
  476. gosub time
  477. locate 16 11
  478. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  479. locate 16 45
  480. echonolf \\27[46;30m══* %!o\\27[44;37m
  481. locate 16 48
  482. getkey
  483. error_level %!q
  484. gosub 10_test
  485. goto ra9
  486. :la9
  487. gosub time
  488. locate 16 11
  489. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  490. locate 14 45
  491. echonolf \\27[46;30m══* %!k\\27[44;37m
  492. locate 14 48
  493. getkey
  494. error_level %!q
  495. gosub 8_test
  496. goto la9
  497. :ua10
  498. gosub time
  499. locate 16 45
  500. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  501. locate 14 45
  502. echonolf \\27[46;30m══* %!k\\27[44;37m
  503. locate 14 48
  504. getkey
  505. error_level %!q
  506. gosub 8_test
  507. goto ua10
  508. :da10
  509. gosub time
  510. locate 16 45
  511. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  512. locate 18 45
  513. echonolf \\27[46;30m══* %!s\\27[44;37m
  514. locate 18 48
  515. getkey
  516. error_level %!q
  517. gosub 12_test
  518. goto da10
  519. :ra10
  520. gosub time
  521. locate 16 45
  522. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  523. locate 18 11
  524. echonolf \\27[46;30m══* %!r\\27[44;37m
  525. locate 18 14
  526. getkey
  527. error_level %!q
  528. gosub 11_test
  529. goto ra10
  530. :la10
  531. gosub time
  532. locate 16 45
  533. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  534. locate 16 11
  535. echonolf \\27[46;30m══* %!l\\27[44;37m
  536. locate 16 14
  537. getkey
  538. error_level %!q
  539. gosub 9_test
  540. goto la10
  541. :ua11
  542. gosub time
  543. locate 18 11
  544. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  545. locate 16 11
  546. echonolf \\27[46;30m══* %!l\\27[44;37m
  547. locate 16 14
  548. getkey
  549. error_level %!q
  550. gosub 9_test
  551. goto ua11
  552. :da11
  553. gosub time
  554. locate 18 11
  555. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  556. locate 8 45
  557. echonolf \\27[46;30m══* %!b\\27[44;37m
  558. locate 8 48
  559. getkey
  560. error_level %!q
  561. gosub 2_test
  562. goto da11
  563. :ra11
  564. gosub time
  565. locate 18 11
  566. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  567. locate 18 45
  568. echonolf \\27[46;30m══* %!s\\27[44;37m
  569. locate 18 48
  570. getkey
  571. error_level %!q
  572. gosub 12_test
  573. goto ra11
  574. :la11
  575. gosub time
  576. locate 18 11
  577. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  578. locate 16 45
  579. echonolf \\27[46;30m══* %!o\\27[44;37m
  580. locate 16 48
  581. getkey
  582. error_level %!q
  583. gosub 10_test
  584. goto la11
  585. :ua12
  586. gosub time
  587. locate 18 45
  588. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  589. locate 16 45
  590. echonolf \\27[46;30m══* %!o\\27[44;37m
  591. locate 16 48
  592. getkey
  593. error_level %!q
  594. gosub 10_test
  595. goto ua12
  596. :da12
  597. gosub time
  598. locate 18 45
  599. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  600. locate 8 11
  601. echonolf \\27[46;30m══* %!a\\27[44;37m
  602. locate 8 14
  603. getkey
  604. error_level %!q
  605. gosub 1_test
  606. goto da12
  607. :ra12
  608. gosub time
  609. locate 18 45
  610. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  611. locate 8 45
  612. echonolf \\27[46;30m══* %!b\\27[44;37m
  613. locate 8 48
  614. getkey
  615. error_level %!q
  616. gosub 2_test
  617. goto ra12
  618. :la12
  619. gosub time
  620. locate 18 45
  621. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  622. locate 18 11
  623. echonolf \\27[46;30m══* %!r\\27[44;37m
  624. locate 18 14
  625. getkey
  626. error_level %!q
  627. gosub 11_test
  628. goto la12
  629. :1_test
  630. if %!q = 18432 goto ua1
  631. if %!q = 20480 goto da1
  632. if %!q = 19712 goto ra1
  633. if %!q = 19200 goto la1
  634. if %!q = 27 goto end
  635. set rc=1
  636. if %!q = 13 goto 1
  637. gosub time
  638. return
  639. :2_test
  640. if %!q = 18432 goto ua2
  641. if %!q = 20480 goto da2
  642. if %!q = 19712 goto ra2
  643. if %!q = 19200 goto la2
  644. if %!q = 27 goto end
  645. set rc=2
  646. if %!q = 13 goto 2
  647. gosub time
  648. return
  649. :3_test
  650. if %!q = 18432 goto ua3
  651. if %!q = 20480 goto da3
  652. if %!q = 19712 goto ra3
  653. if %!q = 19200 goto la3
  654. if %!q = 27 goto end
  655. set rc=3
  656. if %!q = 13 goto 3
  657. gosub time
  658. return
  659. :4_test
  660. if %!q = 18432 goto ua4
  661. if %!q = 20480 goto da4
  662. if %!q = 19712 goto ra4
  663. if %!q = 19200 goto la4
  664. if %!q = 27 goto end
  665. set rc=4
  666. if %!q = 13 goto 4
  667. gosub time
  668. return
  669. :5_test
  670. if %!q = 18432 goto ua5
  671. if %!q = 20480 goto da5
  672. if %!q = 19712 goto ra5
  673. if %!q = 19200 goto la5
  674. if %!q = 27 goto end
  675. set rc=5
  676. if %!q = 13 goto 5
  677. gosub time
  678. return
  679. :6_test
  680. if %!q = 18432 goto ua6
  681. if %!q = 20480 goto da6
  682. if %!q = 19712 goto ra6
  683. if %!q = 19200 goto la6
  684. if %!q = 27 goto end
  685. set rc=6
  686. if %!q = 13 goto 6
  687. gosub time
  688. return
  689. :7_test
  690. if %!q = 18432 goto ua7
  691. if %!q = 20480 goto da7
  692. if %!q = 19712 goto ra7
  693. if %!q = 19200 goto la7
  694. if %!q = 27 goto end
  695. set rc=7
  696. if %!q = 13 goto 7
  697. gosub time
  698. return
  699. :8_test
  700. if %!q = 18432 goto ua8
  701. if %!q = 20480 goto da8
  702. if %!q = 19712 goto ra8
  703. if %!q = 19200 goto la8
  704. if %!q = 27 goto end
  705. set rc=8
  706. if %!q = 13 goto 8
  707. gosub time
  708. return
  709. :9_test
  710. if %!q = 18432 goto ua9
  711. if %!q = 20480 goto da9
  712. if %!q = 19712 goto ra9
  713. if %!q = 19200 goto la9
  714. if %!q = 27 goto end
  715. set rc=9
  716. if %!q = 13 goto 9
  717. gosub time
  718. return
  719. :10_test
  720. if %!q = 18432 goto ua10
  721. if %!q = 20480 goto da10
  722. if %!q = 19712 goto ra10
  723. if %!q = 19200 goto la10
  724. if %!q = 27 goto end
  725. set rc=10
  726. if %!q = 13 goto 10
  727. gosub time
  728. return
  729. :11_test
  730. if %!q = 18432 goto ua11
  731. if %!q = 20480 goto da11
  732. if %!q = 19712 goto ra11
  733. if %!q = 19200 goto la11
  734. if %!q = 27 goto end
  735. set rc=11
  736. if %!q = 13 goto 11
  737. gosub time
  738. return
  739. :12_test
  740. if %!q = 18432 goto ua12
  741. if %!q = 20480 goto da12
  742. if %!q = 19712 goto ra12
  743. if %!q = 19200 goto la12
  744. if %!q = 27 goto end
  745. set rc=12
  746. if %!q = 13 goto 12
  747. gosub time
  748. return
  749. :time
  750. hour_hour
  751. error_level %!h
  752. minute_minute
  753. error_level %!t
  754. let %!n = %!h
  755. if %!t == 0 let %!t = 00
  756. if %!t == 1 let %!t = 01
  757. if %!t == 2 let %!t = 02
  758. if %!t == 3 let %!t = 03
  759. if %!t == 4 let %!t = 04
  760. if %!t == 5 let %!t = 05
  761. if %!t == 6 let %!t = 06
  762. if %!t == 7 let %!t = 07
  763. if %!t == 8 let %!t = 08
  764. if %!t == 9 let %!t = 09
  765. let %!p = AM
  766. GT %!n 12
  767. if errorlevel 1 let %!p = PM
  768. if %!h == 0 let %!p = AM
  769. if %!p == PM sub %!h 12
  770. if %!h == 12 let %!p = PM
  771. if %!h == 0 let %!h = 12
  772. locate 1 68
  773. echonolf \\27[44;37m%!h\\58
  774. echonolf %!t  %!p\\0
  775. echo
  776. return
  777. :1
  778. cls
  779. if %!a = * goto begin
  780. locate 25 5
  781. echo Loading %!a - Please Wait
  782. SET LM=1
  783. exit
  784. :2
  785. cls
  786. if %!b = * goto begin
  787. locate 25 5
  788. echo Loading %!b - Please Wait
  789. SET LM=2
  790. exit
  791. :3
  792. cls
  793. if %!c = * goto begin
  794. locate 25 5
  795. echo Loading %!c - Please Wait
  796. SET LM=3
  797. exit
  798. :4
  799. cls
  800. if %!e = * goto begin
  801. locate 25 5
  802. echo Loading %!e - Please Wait
  803. SET LM=4
  804. exit
  805. :5
  806. cls
  807. if %!f = * goto begin
  808. locate 25 5
  809. echo Loading %!f - Please Wait
  810. SET LM=5
  811. exit
  812. :6
  813. cls
  814. if %!g = * goto begin
  815. locate 25 5
  816. echo Loading %!g - Please Wait
  817. SET LM=6
  818. exit
  819. :7
  820. cls
  821. if %!i = * goto begin
  822. locate 25 5
  823. echo Loading %!i - Please Wait
  824. SET LM=7
  825. exit
  826. :8
  827. cls
  828. if %!k = * goto begin
  829. locate 25 5
  830. echo Loading %!k - Please Wait
  831. SET LM=8
  832. exit
  833. :9
  834. cls
  835. if %!l = * goto begin
  836. locate 25 5
  837. echo Loading %!l - Please Wait
  838. SET LM=9
  839. exit
  840. :10
  841. cls
  842. if %!o = * goto begin
  843. locate 25 5
  844. echo Loading %!o - Please Wait
  845. SET LM=10
  846. exit
  847. :11
  848. cls
  849. if %!r = * goto begin
  850. locate 25 5
  851. echo Loading %!r - Please Wait
  852. SET LM=11
  853. exit
  854. :12
  855. cls
  856. if %!s = * goto begin
  857. locate 25 5
  858. echo Loading %!s - Please Wait
  859. SET LM=12
  860. exit
  861. :end
  862. cls
  863. set LM=EX
  864. exit
  865.